Fish With Names Like.../Fish With Names Like... 2.5.iso/pc/Media/Creditsp.dir/00018.ls

Text File | 2004-03-23 | 501 b | 26 lines

on diverView
end

on setcursor
end

on click downSound, upSound
  if stringp(downSound) then
    puppetSound(downSound)
  end if
  this = the castNum of sprite the clickOn
  set the castNum of sprite the clickOn to this + 1
  updateStage()
  repeat while the stillDown or soundBusy(1)
  end repeat
  if stringp(upSound) then
    puppetSound(upSound)
  end if
  set the castNum of sprite the clickOn to this
  updateStage()
  repeat while soundBusy(1)
  end repeat
  puppetSound(0)
  updateStage()
end